﻿Imports System.Text.RegularExpressions
Imports StartFrame.Web.BR
Imports StartFrame.Web.BR.Helpers
Imports StartFrame.BR.Web.Helpers

Namespace Mantenimiento.Empresas

    Public Class Comercios
        Inherits JsonAbm

        ''' <summary>
        ''' Esta clase se encarga de la administración de los reportes o consultas contempladas por la aplicación.
        ''' </summary>
        ''' Constructor
        Sub New()
            MyBase.New(Operador, Password, "XREntidad", "App_entidad", "nombre")
            MyBase.lnk_nombreOperador = Common.Env.Operador
            'Graba tracking
            Me.lnk_Tracking = True
        End Sub


        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            Dim oFiltro As FiltroColeccion = FiltroColeccion.Parse(Filtro)
            oFiltro.AgregarEQFilter("id_perfil", "C")
            Return MyBase.List(Start, Limit, Orden, oFiltro.ToJSON())
        End Function

    End Class
End Namespace
